Ty = Sequence(Segment[(0, t, (-0.1)), (0, t, 0.1)], t, 1, 6)
Tx = Sequence(Segment[(t, 0, (-0.1)), (t, 0, 0.1)], t, 1, 6)
Tz = Sequence(Segment[(0, (-0.1), t), (0, 0.1, t)], t, 1, 6)
w = Vector((0, 0, 0), (0, 0, 7))
Kx = Sequence(Text[n, (n, 0)], n, 1, 6)
Ky = Sequence(Text[n, (0, n)], n, 1, 6)
a = 0.2 (slider from 0.2 to 4.17, step 0.1)
v_1 = Vector((0, -2, 0), (0, 7, 0))
u_1 = Vector((-2, 0, 0), (7, 0, 0))
A = (6, 0, 5)
B = (6, 4, 0)
C = (0, 4, 0)
D = (0, 0, 5)
Vieleck1, a_1, b, c, d = Polygon(A, B, C, D)
E = (4, 0, 6)
F = (4, 0, 0)
G = (4, 4, 0)
H = (4, 4, 6)
Vieleck2, e, f, g, h = Polygon(E, F, G, H)
I = (4, 0, 5)
i = Segment(I, G)
J = (4, 0, 5.3)
P: (4, a, 5.5 - (5 * a / 4))
j = Sphere(P, 0.3)